home *** CD-ROM | disk | FTP | other *** search
/ 501 Great Games / 501 Great Games - Volume One (2001)(Guildhall Leisure Services).iso / SPELLING TEST / GLOBAL.BAS < prev    next >
BASIC Source File  |  1991-09-07  |  8KB  |  225 lines
  1. '-----------------------------------------------------------------------
  2. '               Copyright (C) 1991 Microsoft Corporation
  3. '
  4. ' You have a royalty-free right to use, modify, reproduce and distribute
  5. ' the Sample Application Files (and/or any modified version) in any way
  6. ' you find useful, provided that you agree that Microsoft has no warranty,
  7. ' obligations or liability for any Sample Application Files.
  8. '
  9. ' -----------------------------------------------------------------------
  10. DefInt A-Z
  11. '
  12. ' Type use by the API routine InvertRect()
  13. '
  14. Type RECT
  15.     Left As Integer
  16.     Top As Integer
  17.     Right As Integer
  18.     bottom As Integer
  19. End Type
  20. '
  21. '
  22. ' Window API Function Declarations
  23. '
  24. Declare Function BitBlt Lib "Gdi" (ByVal destHdc, ByVal X, ByVal Y, ByVal w, ByVal h, ByVal srcHdc, ByVal srcX, ByVal srcY, ByVal Rop As Long)
  25. Declare Function CreateCompatibleBitmap Lib "Gdi" (ByVal hdc, ByVal w, ByVal h)
  26. Declare Function CreateCompatibleDC Lib "Gdi" (ByVal hdc)
  27. Declare Function DeleteDC Lib "Gdi" (ByVal hdc)
  28. Declare Function DeleteObject Lib "Gdi" (ByVal hObject)
  29. Declare Function ExtFloodFill Lib "Gdi" (ByVal hdc, ByVal X, ByVal Y, ByVal crColor As Long, ByVal wFillType)
  30. Declare Function GetBitmapBits Lib "Gdi" (ByVal hBitmap, ByVal dwCount As Long, ByVal lpBits As Long) As Long
  31. Declare Function GetDeviceCaps Lib "Gdi" (ByVal hdc, ByVal nIndex)
  32. Declare Function GetMenu Lib "User" (ByVal hwnd)
  33. Declare Function GetNearestColor Lib "Gdi" (ByVal hdc, ByVal RGBColor As Long) As Long
  34. Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal DEFAULT As Integer, ByVal FileName As String)
  35. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal DEFAULT As String, ByVal ReturnedString As String, ByVal MaxSize, ByVal FileName As String)
  36. Declare Function GetSubMenu Lib "User" (ByVal hwnd, ByVal Position)
  37. Declare Function GetSystemMenu Lib "User" (ByVal hwnd, ByVal bRevert)
  38. Declare Function GlobalLock Lib "Kernel" (ByVal mMem) As Long
  39. Declare Function GlobalUnlock Lib "Kernel" (ByVal mMem)
  40. Declare Function InvertRect Lib "User" (ByVal hdc, lpRect As RECT)
  41. Declare Function RemoveMenu Lib "User" (ByVal hMenu, ByVal nPosition, ByVal wFlags)
  42. Declare Function SelectObject Lib "Gdi" (ByVal hdc, ByVal hObject)
  43. Declare Function SetBitmapBits Lib "Gdi" (ByVal hBitmap, ByVal dwCount As Long, ByVal lpBits As Long) As Long
  44. Declare Function StretchBlt Lib "Gdi" (ByVal destHdc, ByVal X, ByVal Y, ByVal w, ByVal h, ByVal srcHdc, ByVal srcX, ByVal srcY, ByVal srcW, ByVal srcH, ByVal Rop As Long)
  45. Declare Function TrackPopupMenu Lib "User" (ByVal hMenu, ByVal r1, ByVal X, ByVal Y, ByVal r2, ByVal hwnd, ByVal r3 As Long)
  46. Declare Function WinHelp Lib "User" (ByVal hwnd, ByVal HelpFile$, ByVal wCommand, ByVal dwData As Long)
  47. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal Appname As String, ByVal KeyName As String, ByVal NewString As String, ByVal FileName As String)
  48. '
  49. ' Window API Constant Declarations
  50. '
  51. Global Const SRCCOPY = &HCC0020
  52. Global Const SRCAND = &H8800C6
  53. Global Const SRCINVERT = &H660046
  54. Global Const BLACKNESS = &H42&
  55. Global Const FLOODFILLSURFACE = 1
  56. Global Const MF_BYPOSITION = &H400
  57. Global Const BITSPIXEL = 12
  58. Global Const HELP_CONTEXT = &H1
  59. Global Const HELP_QUIT = &H2
  60. Global Const HELP_HELPONHELP = &H4
  61. '
  62. ' INI file KeyNames
  63. '
  64. Global Const APP_NAME = "Spelling"
  65. Global Const KEY_COLOR = "Colors Row"
  66. Global Const KEY_GRID = "Grid"
  67. Global Const KEY_LINE_GRID = "Line Grid"
  68. Global Const KEY_DOTTED_GRID = "Dotted Grid"
  69. Global Const KEY_STATUS_BAR = "Status Bar"
  70. Global Const KEY_TOOL_PALETTE = "Tool Palette"
  71. Global Const KEY_COLOR_PALETTE = "Color Palette"
  72. Global Const KEY_ZOOM_SCROLLBAR = "Zoom Scrollbar"
  73. Global Const KEY_FOCUS = "Editor Focus"
  74. Global Const KEY_BORDER = "Icon Border"
  75. Global Const KEY_POPUP = "Popup Menu"
  76. Global Const KEY_SHOW_ICONS = "Show Icons"
  77. Global Const KEY_DEFAULT = "Default Colors"
  78. Global Const KEY_SOLID = "Solid Colors"
  79. Global Const KEY_INI = "INI File Colors"
  80. Global Const INI_FILENAME = "SPelling.INI"
  81. '
  82. ' Default Color palette values
  83. '
  84. Global Const DEFAULT_COLORS_ROW1 = "16777215 14737632 12632319 12640511 14745599 12648384 16777152 16761024 16761087 00000192 00016576 00049344 00049152 12632064 12582912 12583104"
  85. Global Const DEFAULT_COLORS_ROW2 = "12632256 04210752 08421631 08438015 08454143 08454016 16777088 16744576 16744703 00000128 00016512 00032896 00032768 08421376 08388608 08388736"
  86. Global Const DEFAULT_COLORS_ROW3 = "08421504 00000000 00000255 00033023 00065535 00065280 16776960 16711680 16711935 00000064 04210816 00016448 00016384 04210688 04194304 04194368"
  87. '
  88. ' Default value for ICONRECORD Filename field
  89. '
  90. Global Const UNTITLED = "[Untitled]"
  91. '
  92. ' Viewer Menu Options
  93. '
  94. Global Const MID_EXIT = 5
  95. '
  96. ' Help Menu ID's
  97. '
  98. Global Const MID_INDEX = 1
  99. Global Const MID_KEYBOARD = 2
  100. Global Const MID_COMMANDS = 3
  101. Global Const MID_USING_HELP = 4
  102. Global Const MID_ABOUT = 6
  103. '
  104. ' Viewer and SaveFileDlg File Control values
  105. '
  106. Global Const FILE_NOT_FOUND = 53
  107. Global Const FILENAME_CHANGED = 0
  108. Global Const FILE_CHANGED = 1
  109. Global Const DIR_CHANGED = 2
  110. ' Index's into the ColorPalettes' Scrl_RGB()
  111. '
  112. Global Const RED_ELEMENT = 0
  113. Global Const GREEN_ELEMENT = 1
  114. Global Const BLUE_ELEMENT = 2
  115. '
  116. ' Miscellaneous
  117. '
  118. Global Const EGA_HEIGHT = 7000
  119. Global Const HIGHLIGHT = 10
  120. Global Const HID_DEFINING_COLORS = 1000
  121. Global Const ICONWORKS_VIEWER = 1
  122. '
  123. ' Viewer Global Variables
  124. '
  125. Global MinViewerWidth   As Integer
  126. Global MinViewerHeight  As Integer
  127. Global ShowingAllIcons  As Integer
  128. Global SpellWords() As String
  129. Global NumWords As Integer
  130. '
  131. ' Miscelaneous
  132. '
  133. Global MainForm           As Integer
  134. Global EditorLoaded       As Integer
  135. Global ViewerLoaded       As Integer
  136. Global VLastChanged       As Integer
  137. Global SLastChanged       As Integer
  138. Global Text               As String
  139. Global CRLF               As String * 2
  140. Global A_TAB              As String * 1
  141.  
  142.  
  143. ' CONSTANTS TAKEN FROM VB'S CONTANT.TXT FILE
  144. '
  145. ' Booleans
  146. Global Const TRUE = -1
  147. Global Const FALSE = 0
  148.  
  149. ' WindowState
  150. Global Const MINIMIZED = 1
  151.  
  152. ' Clipboard formats
  153. Global Const CF_BITMAP = 2
  154.  
  155. ' Show parameters
  156. Global Const MODAL = 1
  157. Global Const MODELESS = 0
  158.  
  159. ' Colors
  160. Global Const BLACK = &H0&
  161. Global Const DARKBLUE = &H800000
  162. Global Const DARKGREEN = &H8000&
  163. Global Const DARKCYAN = &H808000
  164. Global Const DARKRED = &H80&
  165. Global Const DARKPURPLE = &H800080
  166. Global Const DARKYELLOW = &H8080&
  167. Global Const DARKGRAY = &H808080
  168. Global Const GRAY = &HC0C0C0
  169. Global Const BLUE = &HFF0000
  170. Global Const GREEN = &HFF00&
  171. Global Const CYAN = &HFFFF00
  172. Global Const RED = &HFF&
  173. Global Const PURPLE = &HFF00FF
  174. Global Const YELLOW = &HFFFF&
  175. Global Const WHITE = &HFFFFFF
  176.  
  177. ' System Colors
  178. Global Const WINDOW_BACKGROUND = &H80000005
  179. Global Const WINDOW_TEXT = &H80000008
  180.  
  181. ' MousePointer
  182. Global Const DEFAULT = 0
  183. Global Const CROSSHAIR = 2
  184. Global Const SIZE = 5
  185. Global Const UP_ARROW = 10
  186. Global Const HOURGLASS = 11
  187.  
  188. ' DrawMode Values
  189. Global Const INVERSE = 6
  190. Global Const COPY_PEN = 13
  191.  
  192. ' DrawStyle property Values
  193. Global Const SOLID = 0
  194. Global Const DOT = 2
  195.  
  196. ' FillStyle Values
  197. Global Const TRANSPARENT = 1
  198.  
  199. ' Key Codes
  200. Global Const KEY_BACK = &H8
  201. Global Const KEY_SHIFT = &H10
  202. Global Const KEY_CONTROL = &H11
  203. Global Const KEY_INSERT = &H2D
  204. Global Const KEY_DELETE = &H2E
  205. Global Const KEY_F1 = &H70
  206. Global Const ENTER = 13
  207.  
  208. ' Shift parameter masks
  209. Global Const SHIFT_MASK = 1
  210. Global Const CTRL_MASK = 2
  211. Global Const ALT_MASK = 4
  212.  
  213. ' Button parameter masks
  214. Global Const LEFT_BUTTON = 1
  215. Global Const RIGHT_BUTTON = 2
  216.  
  217. ' ScaleModes
  218. Global Const TWIPS = 1
  219. Global Const PIXELS = 3
  220.  
  221. ' MsgBox return values
  222. Global Const MBYES = 6
  223. Global Const MBNO = 7
  224.  
  225.